﻿Public Class Form3
    Public time As Integer
    Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Timer1.Interval = 100
        Timer1.Start()
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        time += 1
        'timeLeft = time * 100 / ProgressBar1.Value
        Label2.Text = Math.Round(time * 100 / ProgressBar1.Value) & "s."

    End Sub


End Class